home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Rexx / Examples / Xtruder_GetPath.rexx < prev    next >
OS/2 REXX Batch file  |  1998-06-24  |  264b  |  14 lines

  1. /*
  2. ** 'GetPath' example
  3. */
  4.  
  5. Options Results
  6. Address XTRUDER
  7.  
  8. GetPath TITLE '"Select a path..."' PATH '"DH0:"'
  9.  
  10. IF RC ~= 0 THEN
  11.    RequestUser TEXT '"You forgot to select a path!"' RESPONSE '"Bugger!"'
  12. ELSE
  13.    RequestUser TEXT RESULT RESPONSE '"That was the one!"'
  14.